﻿
Partial Class Login
    Inherits System.Web.UI.Page

    Protected Sub cmdAceptar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdAceptar.Click
        'Si gustan ponen codigo para el modulo de seguridad¡¡¡
        If txtUsuario.Text <> "" And txtPassword.Text <> "" Then
            Session("User") = txtUsuario.Text
            Response.Redirect("menu.aspx")
        Else
            lbMensaje.Text = "Usuario o Password no válido¡¡¡¡"
        End If
    End Sub

End Class
